#!/usr/bin/perl  
$hashref = { Name=>"Woody", Type=>"Cowboy"}; 
print $hashref->{Name}, "\n\n"; # or $$hashref{Name} 
print keys (%$hashref); 
print "\n"; 
